﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim stringa1 As String = "stringhe e stringhe"
    Dim stringa2 As String = "sotto"
    Console.WriteLine("stringa1 = " & stringa1 &
        nl & "stringa2 = " & stringa2 & nl &
        "risultato = " &
        stringa1.Insert(11, stringa2))
    Console.Read()

  End Sub
End Module
